home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / WWSprParagraf.rexx < prev    next >
OS/2 REXX Batch file  |  1999-02-08  |  3KB  |  116 lines
  1. /*
  2. $ver: WWSprParagraf.rexx 1.1 (01.01.99) BLABLA PRODUCT
  3. © 1998 Siumot/BlaBla
  4.  
  5. Skrypt sprawdza poprawnoôê paragrafu znajdujâcego sië pod kursorem tekstowym
  6. programu WordWorth 6+. Sposób dziaîania jest nastëpujâcy: skrypt wycina paragraf,
  7. przesyîa go do programu Ort i uruchamia korektë. Po sprawdzeniu, wstawia paragraf
  8. do dokumentu. W wyniku bardzo sîabego portu ARexxa, jakim dysponuje WordWorth,
  9. naleûy przestrzegaê kilku zasad. Mianowicie, w czasie korygowania paragrafu nie
  10. moûna niczego zmieniaê w programie WordWorth. Poza tym jeôli chcemy, aby paragraf
  11. byî napisany wieloma czcionkami, lub róûnymi atrybutami (pochylenie, wytîuszczenie),
  12. to powinniômy dopiero po korekcie ustawiê te atrybuty, gdyû w przeciwnym razie
  13. zostanâ one usuniëte, a atrybuty jakie przyjmie caîy paragraf bëdâ takie jakie
  14. miaî ostatni wyraz. Moûe wydaê sië trochë ômieszny sposób w jaki skrypt zaznacza
  15. paragraf, lecz jest to spowodowane brakiem moûliwoôci portu ARexxa WordWortha.
  16. Skrypt naleûy zainstalowaê jako makro ARexxa w programie WordWorth 6+.
  17.  
  18. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu skryptem instalacyjnym Orta,
  19.          to musisz dopisaê nastëpujâcâ linië:
  20.          ORTFILENAME=ôcieûka dostëpu/Ort
  21.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  22.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  23. */
  24.  
  25. OPTIONS RESULTS
  26.  
  27. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  28.    IF ORTFILENAME='ORTFILENAME' THEN DO
  29.      REQUESTNOTIFY 'Program Ort nie jest uruchomiony.'
  30.      EXIT
  31.    END
  32.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
  33.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  34. END
  35.  
  36. IF MarkParagraf()=0 THEN EXIT
  37. CUT
  38.  
  39. ADDRESS '2b_Ort_rexx'
  40.  
  41. Info Hide
  42. ortsleep=RESULT
  43. IF ortsleep=1 THEN Show
  44. INFO Version
  45. wer=RESULT
  46.  
  47. PREFS CLIPBOARD
  48. ortclip=result
  49. PREFS CLIPBOARD 0
  50.  
  51. ORT TO FRONT
  52.  
  53. LOAD FROM CLIP LINE
  54. IF rc=0 THEN DO
  55.    CORRECTION
  56.    SAVE TO CLIP NOLINE
  57. END
  58. PREFS CLIPBOARD ortclip
  59. ORT TO BACK
  60. IF ortsleep=1 THEN Hide
  61.  
  62. ADDRESS
  63.  
  64. PASTE
  65.  
  66. EXIT
  67.  
  68. MarkParagraf:
  69.   word_old=''
  70.   POSITION SOL
  71.   w_licz=0
  72.   DO FOREVER
  73.     SHIFTDOWN
  74.     CTRLDOWN
  75.     CURSOR RIGHT
  76.     CTRLUP
  77.     CURSOR RIGHT
  78.     GETTEXT
  79.     word=RESULT
  80.     SHIFTUP
  81.     CURSOR RIGHT
  82.     IF (word==word_old) THEN w_licz=w_licz+1; ELSE w_licz=0
  83.     IF (w_licz=3) THEN DO
  84.       LEAVE
  85.     END
  86.     word_old=word
  87.     IF ~(Index(word,'¶')=0) THEN LEAVE
  88.   END
  89.   IF ~(w_licz=3) THEN CURSOR LEFT
  90.   SHIFTDOWN
  91.   w_licz=0
  92.   DO FOREVER
  93.       CURSOR UP
  94.       GETTEXT
  95.       word=RESULT
  96.       IF (word==word_old) THEN w_licz=w_licz+1; ELSE w_licz=0
  97.       IF (w_licz=3) THEN DO
  98.         LEAVE
  99.       END
  100.       IF ~(Index(word,'¶')=0) THEN DO
  101.         CURSOR DOWN
  102.     LEAVE
  103.       END
  104.       word_old=word
  105.   END
  106.   CTRLDOWN
  107.   CURSOR LEFT
  108.   CTRLUP
  109.   SHIFTUP
  110.   GETTEXT
  111.   word=RESULT
  112.   wynik=1
  113.   IF (word=='¶') THEN wynik=0
  114.   IF (word=='') THEN wynik=0
  115. RETURN wynik
  116.